'(("Run, Lola, run!" (estante b3))
  ("Fahrenheit 451" (emprestado "John Doe"))
  ("The day the Earth stood still" (estante c4)))

(define assoc
  (lambda (chave lista)
    (cond ((null? lista) #f)
          ((equal? (caar lista) chave) (car lista))
          (else (assoc chave (cdr lista))))))

(assoc "Os Sete Samurais"
       '(
         ("Era uma vez no oeste" (estante b3))
         ("Fahrenheit 451" (emprestado "John Doe"))
         ("Os Sete Samurais" (estante c4))
         )
       )

(define assoc/default
  (lambda (chave lista nao-encontrado)
    (cond ((null? lista)
           nao-encontrado)
          ((equal? (caar lista) chave)
           (car lista))
          (else
           (assoc/default chave
                          (cdr lista)
                          nao-encontrado)))))

(assoc/default "Os Sete Samurais"
               '(("Era uma vez no oeste" (estante b3))
                 ("Fahrenheit 451" (emprestado "John Doe"))
                 ("Os Sete Samurais" (estante c4)))
               'nope)

(assoc/default "La Strada"
               '(("Era uma vez no oeste" (estante b3))
                 ("Fahrenheit 451"
                  (emprestado "John Doe"))
                 ("Os Sete Samurais"
                  (estante c4)))
               'nope )

(define inclui-filme cons)

(inclui-filme '("Dr. Strangelove" (estante c4))
              '(("Era uma vez no oeste" (estante b3))
                ("Fahrenheit 451"
                 (emprestado "John Doe"))
                ("Os Sete Samurais"
                 (estante c4))))